home *** CD-ROM | disk | FTP | other *** search
- ;$VER: MUIRexx Installer Script © 1997 Russell Leighton
-
- (if (exists "muirexx:" (noreq))
- (set @default-dest "muirexx:")
- (set @default-dest "Work:")
- )
- (set #adir
- (askdir
- (prompt "Where do you wish to install the MUIRexx demos and documentation?\n(A drawer will NOT be created!!!)")
- (help @askdir-help)
- (default @default-dest)
- )
- )
-
- (set @default-dest #adir)
- (makeassign 'muirexx' @default-dest (safe))
-
- (complete 10)
- (copyfiles
- (help "Installing MUIRexx...")
- (prompt "Installing MUIRexx...")
- (confirm)
- (source "MUIRexx")
- (dest "SYS:Utilities")
- )
- (complete 20)
- (copyfiles
- (help "Installing MUIRexx Documentation...")
- (prompt "Installing MUIRexx Documentation...")
- (source "docs")
- (all)
- (infos)
- (dest "MUIREXX:docs")
- (optional)
- )
- (copyfiles (source "docs.info") (dest "MUIREXX:"))
- (complete 50)
- (copyfiles
- (help "Installing MUIRexx Demos...")
- (prompt "Installing MUIRexx Demos...")
- (source "demos")
- (all)
- (infos)
- (dest "MUIREXX:demos")
- (optional)
- )
- (copyfiles (source "demos.info") (dest "MUIREXX:"))
- (complete 80)
-
- (if (exists "sys:Names")
- (textfile
- (prompt "Creating assignment in sys:Names...")
- (help "Since it appears you are using Dave Haynie's 'BindNames' the assignment will be made in 'sys:Names' in a file called 'MUIRexx'")
- (dest "sys:Names/MUIRexx")
- (append "muirexx: " @default-dest)
- (confirm)
- )
- (startup "MUIRexx"
- (prompt "Inserting assignment into s:user-startup...")
- (help @startup-help)
- (command "assign muirexx: " @default-dest)
- (confirm)
- )
- )
- (complete 100)
-
- (exit)
-